00100	C  TO PLOT DPY BUFFER -- USE WITH SAVB.FAI[LCS,MUS]
00200		DIMENSION I(1),IJ(200)
00300		DATA ITT/'TEST'/,LL/5/
00400	C  NOTE THE ONE-WORD ARRAY I.  MUST IMMEDIATELY PRECEDE DPY BUFFER.
00500		CALL DPYSET(1,IJ,200)
00600		CALL ALINE(-100,100,100,0)
00700		CALL ALINE( 100,0,100,-100)
00800		CALL ALINE( 100,-100,-100 ,100)
00900		CALL DPYBIG(1)
00910		ACCEPT 11,ZZ
00920	11	FORMAT(F)
01100		ENCODE(5,10,XX)ZZ
01200	10	FORMAT(F5.1)
01300		CALL DPYTXT(0,0,XX,1)
01400		CALL DPYOUT(1)
01500	1	I(1)=IJ(2)+2
01600	C  PUTS THE WDCNT AT HEAD OF ARRAY
01700	CC	CALL SAVB(I)
01800		PAUSE
01900		END
02000	C  WRITES A FILE CALLED 'PLOTZ.DAT'
02100	C  TO PLOT IT, RUN PLTVEC (NOTE: WHEN PLTVEC ASKS
02200	C	   TO MOVE POINT OF ORIGIN, TYPE L 1, THEN <CALL>,
02300	C	   THEN   F<CR>.)
02400	
02500	C  TO USE THE XGP: 1ST 'A DSK PTP', THEN RUN PLTVEC
02600	C	   AS ABOVE.  THIS PRODUCES A FILE CALLED 'PLOT.BIN'.
02700	C	   THEN RUN X (USING PLOT.BIN); GIVE 4 AS FIRST 
02800	C	   NUMBER REQUIRED; GIVE <CR> FOR ALL OTHERS.